<%
Class clsHeader 'Header Class @1-56552C31

'Page Variables @1-F9424E71
    Dim Redirect
    Dim Tpl, HTMLTemplate
    Dim TemplateFileName
    Dim ComponentName
    Dim PathToCurrentPage
    Dim Attributes

    ' Events
    Dim CCSEvents
    Dim CCSEventResult

    Dim Link1
    Dim Link2
    Dim Link3
    Dim Link4
    Dim Link5
    Dim Link6
    Dim Link7
    Dim Link8
    Dim Link9

    Public Visible
    Public Page
    Public Name
    Public CacheAction
    Private TemplatePathValue
'End Page Variables

'Page Class_Initialize Event @1-3C70DEEB
    Private Sub Class_Initialize()
        Visible = True
        Set Page = Me
        Set ParentPage = Me
        TemplatePathValue = ""
        Redirect = ""
        TemplateFileName = "Header.html"
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        PathToCurrentPage = "./"
    End Sub
'End Page Class_Initialize Event

'Page Class_Terminate Event @1-B39CB9DF
    Private Sub Class_Terminate()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Me)
        Set Page = Nothing
        If NOT Visible Then _
            Exit Sub
        Set CCSEvents = Nothing
    End Sub
'End Page Class_Terminate Event

'Page BindEvents Method @1-D8FDB1E8
    Sub BindEvents()
        CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Me)
    End Sub
'End Page BindEvents Method

'Operations Method @1-E8B9371E
    Function Operations()
        If NOT Visible Then _ 
            Exit Function
        Operations = Redirect
    End Function
'End Operations Method

'Initialize Method @1-B6B29B32
    Sub Initialize(Name, Path)
    Me.Name = Name
        CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Me)
        If NOT Visible Then _
            Exit Sub

        ' Create Components
        ' Create Components
        Set Link1 = CCCreateControl(ccsLink, "Link1", Empty, ccsText, Empty, CCGetRequestParam("Link1", ccsGet))
        Link1.HTML = True
        Set Link2 = CCCreateControl(ccsLink, "Link2", Empty, ccsText, Empty, CCGetRequestParam("Link2", ccsGet))
        Link2.HTML = True
        Set Link3 = CCCreateControl(ccsLink, "Link3", Empty, ccsText, Empty, CCGetRequestParam("Link3", ccsGet))
        Link3.HTML = True
        Set Link4 = CCCreateControl(ccsLink, "Link4", Empty, ccsText, Empty, CCGetRequestParam("Link4", ccsGet))
        Link4.HTML = True
        Set Link5 = CCCreateControl(ccsLink, "Link5", Empty, ccsText, Empty, CCGetRequestParam("Link5", ccsGet))
        Link5.HTML = True
        Set Link6 = CCCreateControl(ccsLink, "Link6", Empty, ccsText, Empty, CCGetRequestParam("Link6", ccsGet))
        Link6.HTML = True
        Set Link7 = CCCreateControl(ccsLink, "Link7", Empty, ccsText, Empty, CCGetRequestParam("Link7", ccsGet))
        Link7.HTML = True
        Set Link8 = CCCreateControl(ccsLink, "Link8", Empty, ccsText, Empty, CCGetRequestParam("Link8", ccsGet))
        Link8.HTML = True
        Set Link9 = CCCreateControl(ccsLink, "Link9", Empty, ccsText, Empty, CCGetRequestParam("Link9", ccsGet))
        Link9.HTML = True
        TemplatePathValue=path
        BindEvents
        Set HTMLTemplate = new clsTemplate
        Set HTMLTemplate.Cache = TemplatesRepository
        HTMLTemplate.LoadTemplate TemplateFilePath & TemplatePathValue & TemplateFileName
        HTMLTemplate.SetVar "@CCS_PathToRoot", PathToRoot
        Set Tpl = HTMLTemplate.Block("main")

        Link1.Link = ""
        Link1.Page = Page.TemplateURL & "Principal.asp"
        
        Link2.Link = ""
        Link2.Page = Page.TemplateURL & "Federacao.asp"
        
        Link3.Link = ""
        Link3.Page = Page.TemplateURL & "Diretoria.asp"
        
        Link4.Link = ""
        Link4.Page = Page.TemplateURL & "Clubes_Filiados.asp"
        
        Link5.Link = ""
        Link5.Page = Page.TemplateURL & "Pilotos_list2.asp"
        
        Link6.Link = ""
        Link6.Page = Page.TemplateURL & "Fabricantes_list2.asp"
        
        Link7.Link = ""
        Link7.Page = Page.TemplateURL & "Fale_Conosco.asp"
        
        Link8.Link = ""
        Link8.Page = Page.TemplateURL & "Login.asp"
        
        Link9.Link = ""
        Link9.Page = Page.TemplateURL & "Administracao.asp"
    End Sub
'End Initialize Method

'Page Show Method @1-0C25F1FB
    Sub Show(MainTpl)
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
        If NOT Visible Then _
            Exit Sub
        Set ChildControls = CCCreateCollection(Tpl, Null, ccsParseOverwrite, _
            Array(Link1, Link2, Link3, Link4, Link5, Link6, Link7, Link8, Link9))
        ChildControls.Show
        Attributes.Show HTMLTemplate, "page:"
        HTMLTemplate.Parse "main", False
        MainTpl.Variable(Name) = HTMLTemplate.GetVar("main")
    End Sub
'End Page Show Method

'Let TemplatePath Property @1-520E3E1A
    Property Let TemplatePath(NewTemplatePath)
        TemplatePathValue = NewTemplatePath
    End Property
'End Let TemplatePath Property

'Get TemplatePath Property @1-9428206A
    Property Get TemplatePath
        TemplatePath = TemplatePathValue
    End Property
'End Get TemplatePath Property

'TemplateURL Property @1-CFFB06B3
    Property Get TemplateURL
        TemplateURL = Replace(TemplatePathValue, "\", "/")
    End Property
'End TemplateURL Property

End Class 'End Header Class @1-A61BA892
%>
